home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 June / 1990-06.d64 / ml programming (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  351b  |  13 lines
  1. 80 print"[147]"
  2. 90 poke 53265,27:rem default setting
  3. 100 for j=828 to 864:read x
  4. 110 t=t+x:poke j,x
  5. 120 next j
  6. 130 if t<>4077 then stop
  7. 200 data 169,1,141,25,208,162,146,160,6,173,18,208,16,4,162,1
  8. 210 data 160,0,142,18,208,140,33,208,173,13,220
  9. 220 data 41,1,240,3,76,49,234,76,188,254
  10. 300 poke 56333,127:rem disconnect regular irq
  11. 310 poke 788,60:poke 789,3
  12. 320 poke 53274,129:rem connect raster irq
  13.